Top 10k strings from Video Basic - Issue 19 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 A$="PON EN MARCHA LA GRABADORA":
6 "4";"ESTA BIEN ESCRITO ? (S/N)";
6 "23606",z:
6 "10",z;" PARA LA GRABADORA ":
5 t$=" PULSA UNA TECLA PARA CONTINUAR "
5 b$=" ":
5 U;" ";N$;" "
5 T$=" ELIGE, "+n$+":":
5 A$(u+u)-48":
5 A$(u)-48":
5 "9",N;" ~|";
5 "8",N;A$(N-2
5 "6";" SIGUIENTE"
5 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
5 "165-y*8":
5 "126-XL/2",
5 "10",N;" \]"
5 VUELTA AL PRINCIPIO";
5 PASO A LA PARTE";
5 *
4 LETREROS ENTRANTES
4 "10-a/2",U;
3 t$(2)-48":
3 b$=" ":
3 CAR/LENG
3 ;" PARA LA GRABADORA ":
3
2 t$(3)-48";
2 t$(3)-48":
2 t$(2)-48",
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 i,u," ":
2 a$=" SOPORTES COMERCIALES":
2 Via Indipendenza 88
2 SIGUIENTE"
2 LEE LOS UDG
2 HOMBRECILLO
2 A$=" UTILES DE PROGRAMACION":
2 ;"VIDEOBASIC":
2 ;" ""5""
2 ;" ":
2 ,XX;" ";
2 "BIEN, "+N$+"
2 "5";t$(i);
2 "23296"+N,
2 "166-yl*8"
2 "(21-YP)*8-2":
2 "(2*i+xl)*8-20",
2 SOFTIDEA (Como)
2 * * * *
2 Tel.031-240.959
2 PARA LA GRABADORA
2
1 yy=(uu+(-(
1 y1=y1-(x2+y1)/k
1 y1-x1,x1+y1,i
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xx=(CC+(-(
1 xx-q,yy-d:
1 x1=x1-(x1-y1)/k
1 x1+y1,-y1+x1,i
1 x1+x0,y0-y1:
1 vite=vite-1
1 vite=vite+1
1 u;"recuerda que...":
1 u;"PROCESADOR DE TEXTOS"
1 u;"N:NUM. B:CICLO 2 I:CICLO 1"
1 u;" BASE DE DATOS "
1 u;" LISTA DE VARIABLES ":
1 u;" INTRODUCE <F> PARA TERMINAR",:
1 u;" VALOR NO ACEPTABLE",:
1 u;" HOJA ELECTRONICA ":
1 times=times+time:
1 tac=tac+50
1 tac=tac+100
1 t/temp,n+16
1 t$="PREPAREMOS AHORA LA RUTINA DERENUMERACION. ESTA TIENE ELOBJETO DE RENUMERAR LAS LINEASDEL PROGRAMA SEGUN UNA BASE YUN PASO ELEGIDOS POR EL USUA-RIO.":
1 t$="LAS VARIABLES SE MEMORIZAN IN-MEDIATAMENTE DESPUES DEL PRO-GRAMA. LA PRIMERA LOCALIZACIONESTA CONTENIDA EN <VARS> (DI-RECCIONES 23627 Y 23628).":
1 t$="LAS VARIABLES DE LOS TIPOS<3>,<5>,<7> (VARIABLES NUMERI-CAS Y FOR-NEXT) TIENEN UNALONGITUD CONSTANTE,PUESTO QUE,EN EL SPECTRUM CADA NUMEROSIEMPRE ESTA CONTENIDO EN 5BYTE.":
1 t$="El ordenador te permite trazarrapidamente los graficos masrepresentativos...":
1 t$="...y todo ello con gran fiabi-lidad y exactitud.":
1 t$="...poniendo en evidencia rela-ciones y comportamientos difi-ciles de seguir analiticamen-te...":
1 t$=" Distinguido amigo:
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 s$=" BIEN...
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="del Sistema Operativo ":
1 p$="adios":
1 p$="^^PULSA UNA TECLA PARA COMENZAR^^":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBREAK: ":
1 p$="VIDEOBREAK ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Utiles de programacion ":
1 p$="Soportes Comerciales ":
1 p$="Ratonera ":
1 p$="Raton Trackball Touchscreen":
1 p$="Pantallas Artisticas ":
1 p$="PUNTOS":
1 p$="O.K.":
1 p$="Nuevos dispositivos de INPUT":
1 p$="Los ordenadores del futuro ":
1 p$="Lenguaje Maquina #3 ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Inteligencia artificial ":
1 p$="En el proximo numero... ":
1 p$="El rey del mueble ":
1 p$="El Sistema Operativo ":
1 p$="Diagrama de barras ":
1 p$="Aprovechemonos ":
1 p$="AHORA ? (S/N)":
1 p$=" RATONERA":
1 p$=" HAS HECHO ":
1 p$=" PARA LA GRABADORA ":
1 n;" ":
1 n/temp,t+12
1 n$=".......... "
1 mang=mang+g:
1 l$="POR ESTA RAZON; LA PANTALLATACTIL SE UTILIZA EN PROGRAMASDE APLICACIONES DESTINADOS AUN PUBLICO NO EXPERTO."
1 l$="EL USO MAS FRECUENTE DELTRACKBALL SON LOS JUEGOS DEMOVIMIENTO, O BIEN LOS PROGRA-MAS DEDICADOS AL DESARROLLO DEGRAFICOS EN ALTA RESOLUCION."
1 estan escritos en forma nor-mal. El bucle se repite hastael final."
1 drive printer":
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 Z,Z;"BIEN, "+N$,,,,"AHORA INTRODUCE <RUN> Y A CONTI-NUACION 5 NUMEROS ENTRE 0 Y 21.",,:
1 YY,XX;" ";
1 YA HEMOS VISTO QUE LA COMUNI-CACION ENTRE HOMBRE Y ORDENA-DOR SE PUEDE EFECTUAR EN DIS-TINTOS NIVELES:% %CON EL CODIGO MAQUINA, FLEXI-BLE PERO DIFICIL, O CON UNLENGUAJE DE ALTO NIVEL, MUCHOMAS SENCILLO Y EFICAZ, PEROTAMBIEN MAS ESPECIALIZADO. % %PERO, LA ESCALA DE POSIBILIDA-DES NO TERMINA AQUI, UTILIZAN-DO POR EJEMPLO UNA APLICACIONYA PREPARADA ES POSIBLE COMU-NICARSE CON EL ORDENADOR SINTENER NINGUN CONOCIMIENTO DEPROGRAMACION; MAS AUN, A VECESNI SIQUIERA SE REQUIERE CONO-CER EL PROBLEMA SOBRE EL CUALSE OPERA: POR EJEMPLO, UN PRO-GRAMA ESCRITO POR UN AMIGO, OCOMPRADO:UNA VEZ INDICADOS LOSDATOS, TIENES A TU DISPOSICIONLA SOLUCION SIN MAS OPERACIO-NES SUPLEMENTARIAS.% %DESGRACIADAMENTE, ESTE NIVELDE APLICACIONES TIENE UN IN-CONVENIENTE: ES MUY RIGIDO; TESERA IMPOSIBLE PERSONALIZARLOU OBTENER INFORMACIONES SOLOLIGERAMENTE DISTINTAS DE AQUE-LLAS PARA LAS QUE SE HA PRO-YECTADO.% %EXISTEN ENTONCES OTRAS POSIBI-LI
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X,Y;T$(N):
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOJUEGO
1 VIDEOHARD '
1 VIDEOBREAK
1 VIDEOBASIC N.19
1 U;"OTRA VEZ..":
1 U;"INSER.-DESPLAZ.-BUSC.-PAGINAC.":
1 U;"ERROR !":
1 U;" L L ";
1 U+U,XP;A$;
1 TAB.TEST
1 TAB.LENG2
1 TAB.LENG1
1 TAB.EJER 5
1 T$="VEAMOS AHORA CON QUE FORMATOMEMORIZA EL SPECTRUM LOS PRO-GRAMAS BASIC Y SUS VARIABLES.":
1 T$="VEAMOS AHORA COMO APLICAR LOSCONOCIMIENTOS ADQUIRIDOS PARAPREPARAR UN PROGRAMA HERRA-MIENTA, ES DECIR, UN AUXILIARPARA LA REDACCION Y CORRECCIONDE LOS PROGRAMAS.":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA Y LO INTENTESDE NUEVO.":
1 T$="PREPAREMOS UN SOPORTE CAPAZ DERENUMERAR LAS LINEAS EN EXAMENY DE LISTAR SUS VARIABLES CO-LOREANDO SU NOMBRE EN FUNCIONDE SU TIPO.":
1 T$="LOS GRUPOS SON LOS SIGUIENTES:":
1 T$="LA HERRAMIENTA O UTILIDAD SEPUEDE CARGAR CON UN <MERGE>, YSE LLAMA CON UN <GO TO 9900>.LAS LINEAS DEL PROGRAMA OBJETOTENDRAN POR LO TANTO QUE TENERNUMEROS INFERIORES.":
1 T$="LA DIRECCION DE INICIO DELPROGRAMA ESTA CONTENIDA EN LAVARIABLE DEL SISTEMA <PROG>,SITUADA EN LAS LOCALIZACIONES<23635> Y <23636>, ESTANDO ES-CRITA EN EL FORMATO <Z80>."
1 T$="ESTAS PUEDEN PERTENECER A DIS-TINTOS GRUPOS: MATRICES NUME-RICAS, CADENAS, ETC. POR LOTANTO ES NECESARIO QUE, ADEMASDEL NOMBRE, QUEDE TAMBIEN CO-DIFICADO EL GRUPO AL QUE PER-TENECEN. ESTO SE OBTIENE DE LASIGUIENTE MANERA:":
1 T$="EN CAMBIO, LA LONGITUD DE MA-TRICES Y CADENAS NO ESTA IM-PLICITA, Y NECESITA UN PUNTEROQUE LE PERMITA AL INTERPRETEACCEDER A LA VARIABLE SIGUIEN-TE.":
1 T$="ELIGE, "+N$:
1 Se trata de...":
1 SOFTIDEA (Como)
1 SIGLA DEL SOPORTE COMERCIAL U-TILIZADO PARA ESCRIBIR TEXTOS PT
1 SCROLL=23828
1 S$=" PON EN MARCHA LA GRABADORA "
1 S$=" ":
1 RUTINA MAQUINA DE ESCRIBIR
1 REGISTRO DEL NOMBRE
1 PUEDES DEFINIR ZONAS RESTRIN-GIDAS EN LA PANTALLA TACTIL? NO
1 PROGRAMA X
1 PORTADA S
1 PERMITE ARCHIVAR Y ORDENAR IN-FORMACIONES (EN SIGLAS) BD
1 P=P-(P>M):
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$=" VIDEO BREAK VIDEO BREAK "
1 P$=" en el numero 20 ":
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15351-1985
1 La instruccion CP en C/M sirvepara ejecutar una... COMPARACION
1 LENG4
1 LENG3
1 LENG2
1 LENG1
1 L$="Y ES ASI PORQUE EL DESPLAZA-MIENTO DEL CURSOR SOBRE LAPANTALLA SIGUE FIELMENTE ALQUE REALIZA LA MANO."
1 L$="QUIERES VER DE NUEVO LA LEC-CION (S/N) ?":
1 L$="PUEDEN SER DE DISTINTOS TIPOS:LOS MAS COMUNES SON EL TECLADOY EL JOYSTICK, CUYO USO SEGU-RAMENTE CONOCERAS. PERO VEAMOSAHORA OTROS DISPOSITIVOS UNPOCO MAS ESPECIALIZADOS."
1 L$="LOS INTERFACES O DISPOSITIVOSDE E/S SON ELEMENTOS INDISPEN-SABLES PARA EL USO DE UN ORDE-NADOR, PUESTO QUE SOLO A TRA-VES DE ELLOS PUEDEN ESTABLE-CERSE COMUNICACIONES CON ELUSUARIO."
1 L$="LA PANTALLA TACTIL ES UN DIS-POSITIVO SEMEJANTE AL LAPIZOPTICO: TOUCH SCREEN SIGNIFICAPANTALLA SENSIBLE AL TACTO.":
1 L$="EN REALIDAD LA PANTALLA NO ESSENSIBLE AL TACTO, SINO LOSSENSORES SITUADOS SOBRE ELLA.A PESAR DE SU MUY BAJA RESOLU-CION, SU USO ES MUY INTUITIVO."
1 L$="EL ""TRACKBALL"" O MANDO ESFERI-CO, ES UN PERIFERICO CONSTI-TUIDO POR UNA ESFERA CUYA RO-TACION ES LIBRE DENTRO DE UNSOPORTE FIJO; ROTA CON LA PAL-MA DE LA MANO. "
1 L$="EL ""RATON"" (MOUSE) ES UN TRACKBALL BOCA ABAJO; LA ESFERA RO-TA DESPLAZANDO LA TOTALIDADDEL DISPOSITIVO SOBRE UN PLA-NO. SU USO MAS COMUN SON LOSGRAFICOS."
1 L$="DOS RODILLOS, EN EL INTERIORDEL DISPOSITIVO, MIDEN EL AN-GULO DE ROTACION DE LA ESFERAY SE LO COMUNICAN AL ORDENADORMEDIANTE LOS CODIGOS ADECUA-DOS."
1 L$="BIEN "+N$+";":
1 INTENTAREMOS ESCRIBIR UN PRO-GRAMA QUE GENERE UN TIPO DEREPRESENTACION GRAFICA MUY U-TILIZADA EN MULTITUD DE APLI-CACIONES: EL <DIAGRAMA DE BA-RRAS>.",""
1 INTENTA ESCRIBIR EL PROGRAMAEN BASE AL DIAGRAMA DE FLUJO.
1 INGELEK JAKSON
1 I","04BCIERRA B","<813","2B70
1 ES DE NOCHE, EL TIEMPO LLUVIO-SO. ESTOY SENTADO EN LA MESA YHOJEO DISTRAIDAMENTE LAS PAGI-NAS DE UN SEMANARIO. NO TENGOGANAS DE REVISAR ESAS ABURRI-DISIMAS CUENTAS BANCARIAS QUENUNCA CUADRAN. CADA VEZ QUELAS COMPRUEBO SALEN RESULTADOSDISTINTOS. QUE PUEDO HACER?# #ME VOY A LA CAMA# #PRUEBO EL ULTIMO VIDEOJUEGO# #LE ESCRIBO A UN AMIGO.# #PODRIA SER UNA BUENA IDEA, PE-RO ES DEMASIADO PRONTO;# #ESTOY DEMASIADO CANSADO Y SINREFLEJOS.# #ES UNA BUENA IDEA: HAY QUECUIDAR LAS AMISTADES.# #CLARO QUE ES UNA BUENA IDEA,PERO EN LA ERA DE LOS ORDENA-DORES NO USARE UNA MAQUINA DEESCRIBIR. CARGARE EL...# #PROCESADOR DE TEXTOS# #HOJA ELECTRONICA# #BASE DE DATOS# #SI, CARGARE EL P.T.# #NO ES EL SOPORTE ADECUADO# #NO, LA <BD> NO SIRVE PARA ES-CRIBIR CARTAS.# #ES MUY COMODO! ADEMAS PUEDOESCRIBIR EN SUCIO TODO LO QUEPASA POR MI CABEZA, DEJANDOPARA DESPUES EL PERFECCIONA-MI
1 EN UN REGISTRO DE 8 BITS ESPOSIBLE INSERTAR EL N.273 ? NO
1 EL TRATAMIENTO DE TEXTOS SIRVEFUNDAMENTALMENTE PARA REDACTARE IMPRIMIR TEXTOS ESCRITOS, YSE UTILIZA COMO UNA MAQUINACORRIENTE DE ESCRIBIR, PEROLAS VENTAJAS CON RESPECTO AELLA SON NOTABLES:% %TIENE LA POSIBILIDAD DE INFI-NITAS CORRECCIONES, ARREGLOS,SUSTITUCIONES, SIN QUE QUEDENHUELLAS DE LAS MODIFICACIONESEFECTUADAS; BUSQUEDA DE PALABRAS, FUSIONDE DISTINTOS TEXTOS, VARIACIO-NES EN LAS PAGINAS, JUSTIFICA-CION A DERECHA O IZQUIERDA,MARGENES SANGRADOS, RECUADROS,NEGATIVOS, NUMERACION DE LASPAGINAS, TITULOS CENTRADOS...YAQUELLAS AYUDAS NECESARIAS PA-RA UNA PERFECTA IMPRESION.# #HOJAS ELECTRONICAS TIENEN UN USO BASICAMENTE MA-TEMATICO, Y SIRVEN PARA COMPO-NER ESQUEMAS Y TABLAS SEGUNLAS MODALIDADES ELEGIDAS POREL OPERADOR. ESTAN FORMADASPOR UNA GRAN HOJA IDEAL, SUB-DIVIDIDA EN MUCHAS CASILLAS.CADA UNA DE ELLAS PUEDE CONTE-NER PALABRAS, NUMEROS O FORMU-LAS. PUESTO QUE ESTAS ULTIMASPUEDEN REFERIRSE A OTRAS CASI-LLAS, ES FACIL IMAGINAR QUE LAPR
1 EL PROGRAMA QUE HAS ESCRITO ESUNA APLICACCION MUY TIPICA YMUY UTILIZADA A NIVEL COMER-CIAL; ADECUADAMENTE PERSONALI-ZADO PUEDE PROPORCIONARTE IN-FORMACIONES VALIDAS E INMEDIA-TAS."
1 EJERCICIO
1 DISPOSITIVO DE ENTRADA CON UNAESFERA TRACKBALL
1 DISPOSITIVO DE INPUT QUE SEMUEVE SOBRE LA MESA RATON
1 CUANTOS TIPOS DE SALTOS PERMI-TE EL ASSEMBLER Z80 ? DOS
1 CUANTOS TIPOS DE DIRECCIONA-MIENTO TIENE EL Z80 ? SIETE
1 CON QUE LETRA SE INDICA ELFLAG DE RESTA ? N
1 CC-AA,DD-BB,EE:
1 CAR/TEST
1 CAR/PROG
1 CAR/NEXT
1 CAR/LIST
1 CAR/LENGB
1 CAR/HARD
1 CAR/GIG ,
1 CAR/EJER
1 B$="------------"
1 ANTERIOR
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10 A PARTIR DE10."
1 AA,BB,CC,DD,EE:
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$=" SOPORTES COMERCIALES":
1 >JUNTOS Y TIENEN QUE EMPEZAR ENLAS POSICIONES 5..10..15..ETC.DE LA LINEA 21. ACUERDATE QUEDESPUES DE HABER ESTABLECIDO<
1 > (CAP SH. 8) GRAFICAMENTE,TIENES QUE DEVOLVER EL TECLADOAL MODO NORMAL.",""
1 > en cadalocalizacion indicada por lacombinacion de los 2 buclesFOR-NEXT.","",""
1 ="w")+(y<2
1 ="a")+(x<2
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta pronto";
1 ;"PRUEBA AHORA"
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR LEE";
1 ;"NUEVOS DISPOSITIVOS DE INPUT";
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO":
1 ;"Guarda la cinta en su caja";
1 ;"ESTA BIEN ESCRITO, ";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"> < > <"
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" PULSA UNA TECLA PARA CARGAR EL PROXIMO PROGRAMA":
1 ;" PON EN MARCHA LA GRABADORA ":
1 ;" PON EN MARCHA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 5TRADUCCION
1 5BTOTAL","...NUMEROS","
1 5923500","...o EXPRESIONES","
1 5312000","
1 43 - FASE DE OUTPUT","COMO OBTENDREMOS EL RESULTADO?",""
1 4 O U T P U T "
1 3 ELABORACION ","2310
1 22 - FASE DE ELABORACION ","COMO SE GENERARA EL DIAGRAMA ?",""
1 21-I,B*5;""
1 2 INICIALIZA. "
1 11 - FASE DE INPUT ","QUE ELEMENTOS TENDREMOS QUEINTRODUCIR ?",""
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888E
1 ...................................
1 -y1+x1,-x1-y1,i
1 -x1-y1,y1-x1,i
1 ,XX;" ":
1 ,O;"FASE SIGUIENTE.";
1 ,A;" ";
1 ,A;" ":
1 +yy)<h))*go+(yy<2
1 +xx)<u))*go+(xx<2
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa una tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 ));q$(q,65
1 (tac+vite*150
1 ''''" PON EN MARCHA LA GRABADORA ":
1 "xg+xs/2",yg+ys*
1 "i*2+3",u+u;
1 "g","=95 LENGUAJE ","g",">95ALTO NIVEL","g","B73LENGUAJE","g","C73MAQUINA "
1 "g","3=4APLICACION","g","4=4 COMPLETA ","g","8;2GENER. DE","g","9;2PROGRAMA "
1 "g","311 USO ","g","411SENCILLO","g","BG1 MAS ","g","CG1FLEXIBLE","",""
1 "e"+s,sss:
1 "b*5-4",U;
1 "b*5-3",u;:
1 "a"+s,sss:
1 "Variable de longitud fija:"
1 "Una vez grabadas las informa-ciones que hayas elegido (porejemplo, articulos aparecidosen revistas)..."
1 "Un bucle FOR-NEXT contara lasentradas; un segundo bucle enel interior del primero (ANI-DADO) contara los caracteres aimprimir.",""
1 "Se me olvidaba... Tu eres un CA-ZA RATONES ""
1 "RESPUESTA = ";
1 "La entrada esta constituidapor 5 numeros(comprendidos en-tre 0 y 21) que deseas repre-sentar graficamente.",""
1 "LAS BARRAS TIENEN QUE ESTARFORMADAS POR 3 SIMBOLOS <
1 "Imprimiremos un <
1 "Estas pastillas,ademas de hacer-te ganar 100 puntos, te permitencomerte al raton mientras que lapantalla siga parpadeando."'"Si despues de haberte comido unapildora consigues comerte al ra-ton ganaras una vida."
1 "En este caso el formato es elsiguiente:"
1 "ESTE REPRESENTA LOS NUMEROS ACOMPARAR BAJO FORMA DE BARRASDE LONGITUD PROPORCIONAL A LAMAGNITUD DEL NUMERO MISMO, HA-CIENDO QUE LA COMPARACION SEANATURAL.",""
1 "Despues de haber escrito untexto como con la maquina deescribir puedes revisarlo, mo-dificarlo, corregirlo tantasveces como desees."
1 "Cada casilla puede contenerCONSTANTES","
1 "COMO TE LLAMAS ? ";
1 "CADENA","VAR.NUM. (un solo caract.)","MATRIZ NUMERICA","VAR. NUM.(varios caract.)","MATRIZ ALFANUMERICA","GRUPO FOR-NEXT"
1 "AHORA, "+N$,"TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO Y DESPUES A INSTRUCCIO-NES <BASIC>."
1 "AHORA, "+N$,"
1 "<L L> ","es el numero de linea","<P P> ","es la longitud completa","<xx>","es el programa mismo","<CR> ","es el caracter 13"
1 "9958 RETURN","Terminado el ultimo caracterse vuelve a la rutina princi-pal."
1 "9956 PRINT CHR$ (V-128);:LET IND=IND+6","En cambio, el ultimo caractertiene el bit 7 (valor 128)forzado a 1. Restando 128 vol-vemos al codigo normal."
1 "9954 IND=IND+1:LET V=PEEK IND:IF V<128 THEN PRINT CHR$ V;:GOTO 9954","Los caracteres que siguen al1
1 "9950 REM NOMBRE DE CARACTERES","Esta es la rutina que decodi-fica los nombres formados porvarios caracteres."
1 "9948 PRINT:GO TO 9928","Se concluye la linea de impre-sion y se repite el bucle."
1 "9946 IF V1=7 THEN LET IND=IND+19","Este es el grupo FOR-NEXT. Es-te bloque de instruccionessirve para actualizar la di-reccion IND."
1 "9944 IF V1=5 THEN GO SUB 9952","El nombre compuesto de mas ca-racteres se decodifica en unarutina adecuada."
1 "9942 IF V1=3 THEN LET IND=IND+6","Tipo 3 de la variable cuyonombre esta formado por un so-lo caracter."
1 "9940 IF V1/2=INT(V1/2) THEN LET IND=IND+FN C(IND+1)+3","La longitud de todos los tipospares esta contenida en elpuntero (2
1 "9938 IF V1=2 OR V1=6 THEN PRINT ""$"";","Cadenas y matrices alfanumeri-cas llevan un nombre seguidode <$>."
1 "9936 PRINT CHR$ (V-V1*32+64);","Los restantes cinco bits de Vcontienen el nombre. 64 rees-tablece el bit que falta."
1 "9934 PAPER V1","Establecemos a continuacion elcolor del papel con el tipo devariable."
1 "9932 LET V1=INT (V/32)","Los 3 bits de V contienen eltipo de variable.Esta instruc-cion lo obtiene."
1 "9930 IF V=128 THEN PAPER 7:RETURN","El final de las variables estaindicado por el codigo <128>.Se reestablece PAPER."
1 "9928 LET V=PEEK IND","V se establece con el 1
1 "9926 LET IND=0:LET V=0:LET V1=0:LET IND=FN C(23627)","Para evitar alteraciones du-rante el desarrollo todas lasvariables usadas son iniciali-das."
1 "9922 INK 9","Para evitar caracteres pocolegibles INK tiene que con-trastar con el color de PAPER."
1 "9920 REM LISTA VARIABLES","Pidiendo esta opcion se impri-me la lista completa de lasvariables, coloreadas segun sutipo."
1 "9918 GO TO 9908","Se vuelve al principio del bu-cle."
1 "9916 LET LIN=LIN+P","Se pone al dia el numero delinea para el bucle siguiente."
1 "9914 LET IND=IND+FN C(IND+2)+4","IND+2 e IND+3 contienen elpuntero al que hay que sumar 4para alcanzar la linea si-guiente."
1 "9912 POKE IND+1,LIN-INT(LIN/256)*256","En cambio, la siguiente posi-cion contiene el byte de nivelbajo."
1 "9910 POKE IND,INT(LIN/256)","LIN contiene el nuevo numerode linea. Esta instruccion me-moriza el byte de nivel alto."
1 "9908 IF 256*PEEK(IND)+PEEK(IND+1)=9900 THEN RETURN","Obtendremos el numero de li-nea: tenemos que terminarcuando empieza el renumerador."
1 "9906 INPUT ""Principio "";lin'""Paso "";P","Ahora le pedimos al operadorque indique la nueva base y elpaso de renumeracion."
1 "9904 LET IND=FN C(23635)","Establecemos la variable INDcon la direccion de inicio delprograma BASIC (var. de sist.PROG)."
1 "9902 DEF FN C(N)=PEEK N+256*PEEK(N+1)","Esta funcion decodifica el nu-mero escrito en formato Z80 yque esta memorizado en la di-reccion N."
1 "9900 REM RENUMERACION","REM sirve unicamente como co-mentario, en este caso, le datitulo a la rutina."
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "7","PP","< PP > ( 2 byte en formatoZ80) contienen el puntero dela linea siguiente.."
1 "7","N","<CADENA> El 1
1 "7","GGG","Los primeros tres bits (quepor lo tanto pueden tomar unvalor entre 0 y 7) identificanel tipo de variable."
1 "6";"PULSA";
1 "6";" ";
1 "6";" "
1 "6","XXXXX","Sigue el numero, contenido en5 byte."
1 "6","PP","...de un numero (puntero) de 2byte, que indica el espaciototal ocupado por la matrizmisma;"
1 "6","CCCTTTSSS","le siguen: el contenido de lavariable misma, el limite (TO)y <STEP>;"
1 "5";" xxxxxxxxx ";
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";" Elige 1,2 o 3 ...",
1 "31120"(i)
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3";" P P ";
1 "3";" TITULO CATEG. REVISTA FECHA"'':
1 "3";" A B C D E ":
1 "3","NNN","<NUM. VARIOS CARACTERES> Eneste caso el nombre esta com-puesto por varios caracteres;",
1 "3","N","En el caso de matrices numeri-cas o alfanumericas, el nom-bre va seguido...",
1 "3","N","<NUMERICA> Como de costumbre,el 1
1 "3","N","<GRUPO FOR-NEXT> El nombre dela varible de control estacontenido en el 1
1 "29","28","11","-62","-11","34","-6","-60","6","23","11","-46","-11","25"
1 "27","R","< R > cierra el caracter <13>,correspondiente a <ENTER>.",z
1 "24","LLS","Finalmente se memorizan el nu-mero de linea y la posicion dela instruccion que delimita elbucle (NEXT).",z
1 "23617",u:
1 "23617",Z:
1 "23617",U+U
1 "23295+I",
1 "222223333322222666666"(j),b$:
1 "2122","ECUAC. ","MAT. ","REV.A ","9/82","3251","ALIEN ","CINE ","REV.C ","7/82","4543","RENUMER.","UTIL. ","REV.B ","7/83","1415","DIBUJO ","UTIL. ","REV.A ","6/85","5334","TOMMY ","CINE ","REV.A ","6/84"
1 "20","CCCCC","..se memorizan los datos, yasean numericos o alfanumeri-cos.",z
1 "2","LL","< LL > (2 byte) contiene elnumero de linea. Solo en estecaso el byte alto precede alde orden bajo."
1 "17","CCCCC","...y luego los caracteres mis-mos."
1 "16","CCCCC","los restantes cinco bits for-man el codigo del nombre.",Z
1 "1352"(i):
1 "12","XXXXXXX","...sigue el verdadero conteni-do de la linea misma;"
1 "11","TDD","a continuacion de las informa-ciones referentes a las dimen-siones...",
1 "10";"ejercicios":
1 "10";"VIDEOBASIC":
1 "10","XXXXX","sigue el valor numerico comoen el caso anterior."
1 "10","LL","Le sigue la longitud expresadaen caracteres....",
1 "04=IMPRIME ","04>21-I,B*5","#823","2=50
1 "048INT. <N>","#813","2830
1 "042LIMPIA ","043PANTALLA","#820","*1 ","19
1 "...u ordenado por fechas. Pue-des elegir en base a parame-tros o a limites sobre uno omas archivos, obteniendo unagran flexibilidad de busqueda."
1 "...puedes volver a ver todo loque te interese ordenado portemas..."
1 "...o bien reagrupado en base ala revista de la que procede.."
1 "...he aqui como se codificacada linea <BASIC>:"
1 "-23","55","23","1","9","-57","-9","57","9","-4","1","-11","1","11","-2","-40","11",
1 ","045INICIAL.","046CICLO B ","#823","2520
1 "*1 ","% "
1 ""mientras tanto hay que conseguirir comiendose las pastillas depotencia ""
1 ""W"",""A"",""S"",""Z""
1 ""N="";N","04:INICIAL.","04;CICLO I ","#823","2:40
1 ""","04@CIERRA I","<813","2@60
1 "" y para movertetienes que usar las TECLAS:
1 " GENERACION DE UN "," DIAGRAMA DE BARRAS"
1 " INSTRUCCIONES"'" #############"''"El juego consiste en no dejarsealcanzar por el raton ""
1 byte, como decostumbre, contiene tipo ynombre de la variable.",
1 byte de cada variable:"
1 byte contiene el nombrede la variable.",
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 REPETIR";
1 INTRODUCCION";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGAR LA";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 * * * ***********************
1 bytede la variable en examen."
1 Y.. ADIOS"
1 Pon en marcha la grabadora
1 tenemos el gusto de comu-nicarle que desde el princi-pio del presente mes, nuestroestudio ha puesto a punto unnuevo setbezio para toda sudistinguida clientela.
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1
1
1
1
1